﻿Imports System.Data
Imports System.Data.SqlClient
Public Class frmAgregarCargo

    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub

    Private Sub frmAgregarCargo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarCargo' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarCargoTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarCargo)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarCargo' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarCargoTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarCargo)

    End Sub

    Private Sub InsertarCargo()
        Try
            Me.SP_ListarCargoTableAdapter.SP_InsertarCargo(Me.txtCargo.Text)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
        If Me.txtCargo.Text <> Nothing Then
            If VerificarExistencia() = False Then
                InsertarCargo()
                Me.Close()
            Else
                MessageBox.Show("Este cargo ya existe", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Error)
                Me.txtCargo.Focus()
            End If
        End If
    End Sub

    Private Function VerificarExistencia()
        If varConexion.State = ConnectionState.Open Then
            varConexion.Close()
        End If

        Try
            Dim verificar As String = "SELECT COUNT (*) FROM Cargo WHERE Cargo = @Cargo"
            varConexion.Open()

            Dim sql As New SqlCommand(verificar, varConexion)
            sql.Parameters.Add("@Cargo", SqlDbType.NVarChar, 50).Value = Trim(Me.txtCargo.Text)

            Dim i As Integer
            i = CInt(sql.ExecuteScalar)
            If i > 0 Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return True
        End Try
    End Function


    Private Sub txtCargo_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCargo.KeyPress
        If Char.IsLower(e.KeyChar) Then
            Me.txtCargo.SelectedText = Char.ToUpper(e.KeyChar)
            e.Handled = True
        End If
    End Sub
End Class